home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / SpaceEscape •••• / SpaceEscape ееее / card_32847.txt < prev    next >
Text File  |  1990-10-02  |  3KB  |  111 lines
  1. -- card: 32847 from stack: in
  2. -- bmap block id: 33335
  3. -- flags: 4000
  4. -- background id: 8902
  5. -- name: coffee machine
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put "This is a large metal coffee maker.  You wonder what might be"& " inside." into field "info"
  9.   global position
  10.   put "officer's mess" into position
  11.   pass opencard
  12. end opencard
  13.  
  14.  
  15. -- part 2 (button)
  16. -- low flags: 00
  17. -- high flags: A003
  18. -- rect: left=161 top=302 right=323 bottom=192
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: OK
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   global filter
  30.   if filter is "yes" then
  31.     beep
  32.     exit mouseup
  33.   end if
  34.   global donteat
  35.   get bkgnd field "do what"
  36.   if the number of words in it > 1 then
  37.     beep 2
  38.     oneword
  39.     exit mouseup
  40.   end if
  41.   if it contains "close" then
  42.     put "The coffee maker cannot be closed." into field "info"
  43.     exit mouseup
  44.   end if
  45.   if it contains "examine" or it contains "look" then
  46.     send "opencard" to this card
  47.     exit mouseup
  48.   end if
  49.   if it contains "hit" or it contains "kick" or it contains "punch" then
  50.     ouch
  51.     exit mouseup
  52.   end if
  53.   if it contains "get" or it contains "move" or it contains "pull" then
  54.     put "The coffee maker is too heavy to move." into field "info"
  55.     exit mouseup
  56.   end if
  57.   if it contains "eat" or it contains "consume" then
  58.     global donteat
  59.     put donteat into field "info"
  60.     exit mouseup
  61.   end if
  62.   if it contains "open" then
  63.     put "The coffee maker cannot be opened." into field "info"
  64.     exit mouseup
  65.   end if
  66.   if it is "" then
  67.     put "Speak up.  I can't hear you." into field "info"
  68.     exit mouseup
  69.   end if
  70.   if it contains "use" or it contains "operate" or it contains"fill" then
  71.     ask "What would you like to fill?"
  72.     global inventory
  73.     if it contains "cup" and inventory contains "cup" then
  74.       global coffee
  75.       if coffee is "" then
  76.         put "You fill the cup to the brim with the boiling brown "& "liquid."&return&"≈∏" into field "info"
  77.         global coffee
  78.         put "yes" into coffee
  79.         global filter
  80.         put "yes" into filter
  81.         get offset ("cup",inventory)
  82.         put " of coffee"&return into char  3 +it  of inventory
  83.       else put "The cup is already full." into field "info"
  84.     else
  85.       if inventory contains it then
  86.         put "You shouldn't put coffee in the "&it&"." into field "info"
  87.       else put "You don't have a "&it&"." into field "info"
  88.     end if
  89.     exit mouseup
  90.   end if
  91.   idunno
  92. end mouseUp
  93.  
  94. on cont
  95.   global filter
  96.   if filter is "yes" then
  97.     put "" into filter
  98.     go card "officer's mess"
  99.   end if
  100. end cont
  101.  
  102.  
  103.  
  104.  
  105. -- part contents for background part 2
  106. ----- text -----
  107. What would you like to do with the Art?
  108.  
  109. -- part contents for background part 7
  110. ----- text -----
  111. Coffee Machine